home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / events.dcl < prev    next >
Encoding:
Modula Definition  |  1995-10-31  |  1.4 KB  |  60 lines  |  [TEXT/3PRM]
  1. definition module events;
  2.  
  3. import mac_types;
  4.  
  5. //    Event masks
  6.  
  7. MDownMask    :== 2;
  8. MUpMask     :== 4;
  9. KeyDownMask :== 8;
  10. KeyUpMask    :== 16;
  11. AutoKeyMask :== 2;
  12. UpdateMask    :== 64;
  13. DiskMask    :== 128;
  14. ActivMask    :== 256;
  15. NetworkMask :== 1024;
  16. DriverMask    :== 2048;
  17. OsMask        :== -32768;
  18.  
  19. //    Device masks
  20.  
  21. MouseMask        :== 6;        // MouseDown | MouseUp
  22. KeyboardMask    :== 56;        // KeyDown     | KeyUp | AutoKey
  23.  
  24. //    Event codes
  25.  
  26. NullEvent        :== 0;
  27. MouseDownEvent    :== 1;
  28. MouseUpEvent    :== 2;
  29. KeyDownEvent    :== 3;
  30. KeyUpEvent        :== 4;
  31. AutoKeyEvent    :== 5;
  32. UpdateEvent     :== 6;
  33. DiskEvent        :== 7;
  34. ActivateEvent    :== 8;
  35. NetworkEvent    :== 10;
  36. DriverEvent     :== 11;
  37. OsEvent            :== 15;
  38. HighLevelEvent :== 23;
  39.  
  40. //    Flags for suspend and resume events
  41.  
  42. ResumeFlag                :== 1;
  43. ConvertClipboardFlag    :== 2;
  44.  
  45. //    Message codes for operating-system events
  46.  
  47. SuspendResumeMessage    :== 1;        // $01
  48. MouseMovedMessage        :== 250;    // $FA
  49.  
  50. GetNextEvent    :: !Int !Toolbox -> (!Bool,!Int,!Int,!Int,!Int,!Int,!Int,!Toolbox);
  51. EventAvail        :: !Int !Toolbox -> (!Bool,!Int,!Int,!Int,!Int,!Int,!Int,!Toolbox);
  52. WaitNextEvent    :: !Int !Int !RgnHandle !Toolbox -> (!Bool,!Int,!Int,!Int,!Int,!Int,!Int,!Toolbox);
  53. TickCount            :: !Toolbox -> (!Int,!Toolbox);
  54. GetMouse            :: !Toolbox -> (!Int,!Int,!Toolbox);
  55. Button                :: !Toolbox -> (!Bool,!Toolbox);
  56. StillDown            :: !Toolbox -> (!Bool,!Toolbox);
  57. WaitMouseUp            :: !Toolbox -> (!Bool,!Toolbox);
  58. GetKeys                :: !Toolbox -> (!Int,!Int,!Int,!Int,!Toolbox);
  59. HasWaitNextEvent    :: !Toolbox -> (!Bool,!Toolbox);
  60.